home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Merciful 2
/
Merciful - Disc 2.iso
/
software
/
d
/
devioustools19.dms
/
devioustools19.adf
/
utils
/
009.lzx
/
Save_ASCII.macro
< prev
Wrap
Text File
|
1979-01-11
|
592b
|
23 lines
/* Save_ASCII */
options results
'Status pathname';path=RESULT
if path="" then do
'ShowMessage 1 1 " Sorry, no document name. " "" "" " OK " "" ""'
exit
end
else if upper(right(path,4))~='.TXT' then path=path'.txt'
'Status filename'
file=RESULT
if upper(right(file,4))~='.TXT' then file=file'.txt'
'Save ASCII "'path'"'
if RC>0 then do
msg='Could not save file:'
if length(file)<26 then do
file=center(file,26,'20'x)
msg=' Could not save file: '
end
else msg=center('Could not save file:',length(file),'20'x)
'ShowMessage 1 1 "'msg'" " " "'file'" "OK" "" ""'
end